home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / lamstex / lamstex.zoo / lamstex / disk4 / lams5.mf < prev   
Text File  |  1991-08-01  |  16KB  |  508 lines
  1. % LAMS5.MF      VERSION 1.0
  2. % COPYRIGHT (C) 1989 BY THE TEXPLORATORS CORPORATION
  3. % ALL RIGHTS RESERVED
  4.  
  5. if unknown cmbase: input cmbase fi
  6. font_identifier:="LAMS"; font_size 10pt#;
  7.  
  8. u#:=20/36pt#;      % unit width
  9. width_adj#:=0pt#;    % width adjustment for certain characters
  10. serif_fit#:=0pt#;    % extra sidebar near lowercase serifs
  11. cap_serif_fit#:=5/36pt#;  % extra sidebar near uppercase serifs
  12. letter_fit#:=0pt#;    % extra space added to all sidebars
  13.  
  14. body_height#:=270/36pt#;  % height of tallest characters
  15. asc_height#:=360/36pt#;    % height of lowercase ascenders
  16. cap_height#:=246/36pt#;    % height of caps
  17. fig_height#:=232/36pt#;    % height of numerals
  18. x_height#:=155/36pt#;    % height of lowercase without ascenders
  19. math_axis#:=90/36pt#;    % axis of symmetry for math symbols
  20. bar_height#:=87/36pt#;    % height of crossbar in lowercase e
  21. comma_depth#:=70/36pt#;    % depth of comma below baseline
  22. desc_depth#:=0/36pt#;    % depth of lowercase descenders
  23.  
  24. crisp#:=8/36pt#;    % diameter of serif corners
  25. tiny#:=8/36pt#;      % diameter of rounded corners
  26. fine#:=7/36pt#;      % diameter of sharply rounded corners
  27. thin_join#:=7/36pt#;    % width of extrafine details
  28. hair#:=9/36pt#;      % lowercase hairline breadth
  29. stem#:=24/36pt#;    % lowercase stem breadth
  30. curve#:=29/36pt#;    % lowercase curve breadth
  31. ess#:=27/36pt#;      % breadth in middle of lowercase s
  32. flare#:=32/36pt#;    % diameter of bulbs or breadth of terminals
  33. dot_size#:=38/36pt#;    % diameter of dots
  34. cap_hair#:=11/36pt#;    % uppercase hairline breadth
  35. cap_stem#:=30/36pt#;    % uppercase stem breadth
  36. cap_curve#:=35/36pt#;    % uppercase curve breadth
  37. cap_ess#:=33/36pt#;    % breadth in middle of uppercase s
  38. rule_thickness#:=.4pt#;    % thickness of lines in math symbols
  39.  
  40. dish#:=1/36pt#;      % amount erased at top or bottom of serifs
  41. bracket#:=20/36pt#;    % vertical distance from serif base to tangent
  42. jut#:=30/36pt#;      % protrusion of lowercase serifs
  43. cap_jut#:=37/36pt#;    % protrusion of uppercase serifs
  44. beak_jut#:=10/36pt#;    % horizontal protrusion of beak serifs
  45. beak#:=70/36pt#;    % vertical protrusion of beak serifs
  46. vair#:=8/36pt#;      % vertical diameter of hairlines
  47. notch_cut#:=10pt#;    % maximum breadth above or below notches
  48. bar#:=11/36pt#;      % lowercase bar thickness
  49. slab#:=11/36pt#;    % serif and arm thickness
  50. cap_bar#:=11/36pt#;    % uppercase bar thickness
  51. cap_band#:=11/36pt#;    % uppercase thickness above/below lobes
  52. cap_notch_cut#:=10pt#;    % max breadth above/below uppercase notches
  53. serif_drop#:=4/36pt#;    % vertical drop of sloped serifs
  54. stem_corr#:=1/36pt#;    % for small refinements of stem breadth
  55. vair_corr#:=1/36pt#;    % for small refinements of hairline height
  56. apex_corr#:=0pt#;    % extra width at diagonal junctions
  57.  
  58. o#:=8/36pt#;      % amount of overshoot for curves
  59. apex_o#:=8/36pt#;    % amount of overshoot for diagonal junctions
  60.  
  61. slant:=0;      % tilt ratio $(\Delta x/\Delta y)$
  62. fudge:=1;      % factor applied to weights of heavy characters
  63. math_spread:=0;      % extra openness of math symbols
  64. superness:=1/sqrt2;    % parameter for superellipses
  65. superpull:=1/6;      % extra openness inside bowls
  66. beak_darkness:=11/30;    % fraction of triangle inside beak serifs
  67. ligs:=2;      % level of ligatures to be included
  68.  
  69. square_dots:=false;    % should dots be square?
  70. hefty:=false;      % should we try hard not to be overweight?
  71. serifs:=true;      % should serifs and bulbs be attached?
  72. monospace:=false;    % should all characters have the same width?
  73. variant_g:=true;    % should an italic-style g be used?
  74. low_asterisk:=false;    % should the asterisk be centered at the axis?
  75. math_fitting:=true;    % should math-mode spacing be used?
  76.  
  77. mode_setup; font_setup;
  78. autorounding:=0;
  79.  
  80. font_slant slant; font_x_height 0;
  81. font_quad 18u# if not monospace:+4letter_fit# fi;
  82.  
  83. slant:=mono_charic#:=0;  % the remaining characters will not be slanted
  84. currenttransform:=identity yscaled aspect_ratio scaled granularity;
  85.  
  86.  
  87. def RevShaft (expr ChCode,ChWidthFrac,ChDepthFrac)=
  88.  
  89. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  90. adjust_fit(0,0); pickup crisp.nib;
  91. x1= 0; x0=(w);
  92. y1=h; y0=-d;
  93. pickup pencircle scaled rule_thickness;
  94. draw z1--z0;
  95. penlabels(1,2); endchar;
  96. enddef;
  97.  
  98.  
  99. def RevDashedShaft (expr ChCode, ChWidthFrac, ChDepthFrac)=
  100.  
  101. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  102. adjust_fit(0,0); pickup crisp.nib;
  103. x1= 0; x0=(w);
  104. y1=h; y0=-d;
  105. numeric theta,delta; theta=angle(z0-z1); delta=3u++.24asc_height;
  106. if abs(theta-45)<2.5: theta:=45; y1:=y0+x1-x0; fi % near-45$^\circ$ angle
  107. pos1(rule_thickness,90+theta); pos2(1.5rule_thickness,90+theta);
  108. x2= w;
  109. y2=-d;
  110. pickup pencircle scaled rule_thickness;
  111. draw z1--1/6[z1,z2];
  112. draw 2/6[z1,z2]--4/6[z1,z2];
  113. draw 5/6[z1,z2]--z2;
  114. penlabels(1,2); endchar;
  115. enddef;
  116.  
  117.  
  118. def RevUpperHead (expr ChCode, ChWidthFrac, ChDepthFrac)=
  119.  
  120. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  121. adjust_fit(0,0); pickup crisp.nib;
  122. x1=0; x0=w;
  123. y1=h; y0=-d;
  124. numeric theta; theta=angle(z0-z1);
  125. numeric delta; delta=((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  126. pos1(rule_thickness,90+theta);
  127. pos2(1.5rule_thickness,theta);
  128. pos3(bar,theta); pos4(bar,theta);
  129. z4=z0+ dir -(90+(45-theta)) scaled delta;
  130. z3=z0+ dir -(180+(45-theta)) scaled delta;
  131. z2l=z0;
  132. z9=.381966[.5[z3,z4],z0];
  133. pickup crisp.nib;
  134. filldraw z2r..{z3-z9}z3r---{z9-z3}z3l..z2l--cycle;
  135. filldraw z2r..{z4-z9}z4r---{z9-z4}z4l..z2l--cycle;
  136. endchar;
  137. enddef;
  138.  
  139.  
  140. def RevLowerHead (expr ChCode, ChWidthFrac, ChDepthFrac)=
  141.  
  142. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  143. adjust_fit(0,0); pickup crisp.nib;
  144. x1=w ; x0= 0;
  145. y1=-d;  y0=h;
  146. numeric theta; theta=angle(z1-z0);
  147. numeric delta; delta=((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  148. pos1(rule_thickness,-90+theta);
  149. pos2(1.5rule_thickness,theta);
  150. pos3(bar,theta); pos4(bar,theta);
  151. z4=z0+ dir (90-(45-theta)) scaled delta;
  152. z3=z0+ dir -(45-theta) scaled delta;
  153. pos5(bar,90-(45-theta)); z5l=z0; pos6(bar,-(45-theta)); z6l=z0;
  154. z2r=z0;
  155. z9=.381966[.5[z3,z4],z0];
  156. pickup crisp.nib;
  157. filldraw z2r..{z3-z9}z3r---{z9-z3}z3l..z2l--cycle;
  158. filldraw z2r..{z4-z9}z4r---{z9-z4}z4l..z2l--cycle;
  159. penlabels(0,1,2,3,4,5,6,9); endchar;
  160. enddef;
  161. def RevUpperTopBarb (expr ChCode, ChWidthFrac, ChDepthFrac)=
  162. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  163. adjust_fit(0,0); pickup crisp.nib;
  164. x1=0; x0=w;
  165. y1=h; y0=-d;
  166. numeric theta; theta=angle(z0-z1);
  167. pos1(rule_thickness,90+theta);
  168. pos0(rule_thickness,90+theta);
  169. pos2(1.5rule_thickness,theta);
  170. pos3(bar,theta); pos4(bar,theta);
  171. z4=z0+ dir -(90+(45-theta)) scaled ((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  172. z3=z0+ dir -(180+(45-theta)) scaled ((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  173. z2l=z0;
  174. z9=.381966[.5[z3,z4],z0];
  175. pickup crisp.nib;
  176. filldraw z2r..{z3-z9}z3r---{z9-z3}z3l..z2l--cycle;
  177. filldraw z2r{dir (270+theta)}..{z1-z0}z0l--z2l--cycle;
  178. endchar;
  179. enddef;
  180.  
  181.  
  182. def RevUpperBotBarb (expr ChCode,ChWidthFrac,ChDepthFrac)=
  183. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  184. adjust_fit(0,0); pickup crisp.nib;
  185. x1=0; x0=w;
  186. y1=h; y0=-d;
  187. numeric theta; theta=angle(z0-z1);
  188. pos1(rule_thickness,90+theta);
  189. pos0(rule_thickness,90+theta);
  190. pos2(1.5rule_thickness,theta);
  191. pos3(bar,theta); pos4(bar,theta);
  192. z4=z0+ dir -(90+(45-theta)) scaled ((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  193. z3=z0+ dir -(180+(45-theta)) scaled ((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  194. z2l=z0;
  195. z9=.381966[.5[z3,z4],z0];
  196. pickup crisp.nib;
  197. filldraw z2r..{z4-z9}z4r---{z9-z4}z4l..z2l--cycle;
  198. filldraw z2r{dir (90+theta)}..{z1-z0}z0r--z2l--cycle;
  199.  
  200. endchar;
  201.  
  202. enddef;
  203.  
  204.  
  205. def RevLowerTopBarb (expr ChCode, ChWidthFrac, ChDepthFrac)=
  206. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  207. adjust_fit(0,0); pickup crisp.nib;
  208. x1=w ; x0=0;
  209. y1=-d;  y0=h;
  210. numeric theta; theta=angle(z1-z0);
  211. pos1(rule_thickness,90+theta);
  212. pos0(rule_thickness,90+theta);
  213. pos2(1.5rule_thickness,theta);
  214. pos3(bar,theta); pos4(bar,theta);
  215. z4=z0+ dir (90-(45-theta)) scaled ((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  216. z3=z0+ dir -(45-theta) scaled ((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  217. pos5(bar,90-(45-theta)); z5l=z0; pos6(bar,-(45-theta)); z6l=z0;
  218. z2r=z0;
  219. z9=.381966[.5[z3,z4],z0];
  220. pickup crisp.nib;
  221. filldraw z2r..{z4-z9}z4r---{z9-z4}z4l..z2l--cycle;
  222. filldraw z2l{dir (180+90+theta)}..{z1-z0}z0l--z2r--cycle;
  223. endchar;
  224.  
  225. enddef;
  226.  
  227.  
  228. def RevLowerBotBarb (expr ChCode, ChWidthFrac,ChDepthFrac)=
  229. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  230. adjust_fit(0,0); pickup crisp.nib;
  231. x1=w ; x0=0;
  232. y1=-d;  y0=h;
  233. numeric theta,delta;theta=angle(z1-z0);
  234. pos1(rule_thickness,90+theta);
  235. pos0(rule_thickness,90+theta);
  236. pos2(1.5rule_thickness,theta);
  237. pos3(bar,theta); pos4(bar,theta);
  238. z4=z0+ dir (90-(45-theta)) scaled ((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  239. z3=z0+ dir -(45-theta) scaled ((3u++.24asc_height)+eps-rule_thickness-.5crisp.breadth);
  240. pos5(bar,90-(45-theta)); z5l=z0; pos6(bar,-(45-theta)); z6l=z0;
  241. z2r=z0;
  242. z9=.381966[.5[z3,z4],z0];
  243. pickup crisp.nib;
  244. filldraw z2r..{z3-z9}z3r---{z9-z3}z3l..z2l--cycle;
  245. filldraw z2l{dir (90+theta)}..{z1-z0}z0r--z2r--cycle;
  246.  
  247. endchar;
  248.  
  249. enddef;
  250.  
  251.  
  252.  
  253. def RevLowerTopHook (expr ChCode, ChWidthFrac, ChDepthFrac)=
  254. compute_spread(.45x_height#,.55x_height);
  255. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  256. adjust_fit(0,0); pickup crisp.nib;
  257. x1=(w) ; x0= 0;
  258. y1=-d;  y0=h;
  259. numeric theta; theta=angle(z1-z0);
  260. pos1(rule_thickness,-90+theta);
  261. pos2(1.5rule_thickness,theta);
  262. pos3(bar,theta); pos4(bar,theta);
  263. z4=z0+ dir (90+theta) xscaled spread yscaled spread;
  264. pos5(bar,90-(45-theta)); z5l=z0; pos6(bar,-(45-theta)); z6l=z0;
  265. z2l=z0;
  266. z9=.381966[.5[z3,z4],z0];
  267. pickup rule.nib;
  268. z40= 1/2[z0,z4] + dir (180+theta) xscaled 2.5u yscaled 2.5u;
  269. draw z0{z0-z1}..{z4-z0}z40..{z1-z0}z4;
  270. endchar;
  271. enddef;
  272.  
  273.  
  274. def RevLowerBotHook (expr ChCode, ChWidthFrac, ChDepthFrac)=
  275. compute_spread(.45x_height#,.55x_height);
  276. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  277. adjust_fit(0,0); pickup crisp.nib;
  278. x1=(w) ; x0= 0;
  279. y1=-d;  y0=h;
  280. numeric theta,delta; theta=angle(z1-z0); delta=3u++.24asc_height;
  281. if abs(theta-45)<2.5: theta:=45; y1:=y0+x1-x0; fi % near-45$^\circ$ angle
  282. pos1(rule_thickness,-90+theta);
  283. pos2(1.5rule_thickness,theta);
  284. pos3(bar,theta); pos4(bar,theta);
  285. z4=z0+ dir -(90-theta) xscaled spread yscaled spread;
  286. %dir (90-theta) xscaled (delta+eps) yscaled (delta+eps);
  287. %z3=z0+ dir -(45-theta) xscaled (delta+eps) yscaled (delta+eps);
  288. pos5(bar,90-(45-theta)); z5l=z0; pos6(bar,-(45-theta)); z6l=z0;
  289. z2l=z0;
  290. z9=.381966[.5[z3,z4],z0];
  291. z40= 1/2[z0,z4] + dir (180+theta) xscaled 2.5u yscaled 2.5u;
  292. pickup rule.nib;
  293. draw z0{z0-z1}..{z4-z0}z40..{z1-z0}z4;
  294. %penstroke z2e..{z4-z9}z4e;
  295.  
  296. penlabels(0,1,2,3,4,5,6,9); endchar;
  297. enddef;
  298.  
  299. def RevUpperTopHook (expr ChCode, ChWidthFrac, ChDepthFrac)=
  300.  
  301. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  302. adjust_fit(0,0); pickup crisp.nib;
  303. x1= 0; x0=(w);
  304. y1=h; y0=-d;
  305. numeric theta; theta=angle(z0-z1);
  306. pos1(rule_thickness,90+theta);
  307. pos2(1.5rule_thickness,theta);
  308. pos3(bar,theta); pos4(bar,theta);
  309. z4=z0+ dir (90+theta) xscaled (spread) yscaled (spread);
  310. z2r=z0;
  311. z9=.381966[.5[z3,z4],z0];
  312. z40= 1/2[z0,z4] + dir theta xscaled 2.5u yscaled 2.5u;
  313. pickup rule.nib;
  314. draw z0{z0-z1}..{z4-z0}z40..{z1-z0}z4;
  315. endchar;
  316. enddef;
  317.  
  318. def RevUpperBotHook (expr ChCode, ChWidthFrac, ChDepthFrac)=
  319. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  320. adjust_fit(0,0); pickup crisp.nib;
  321. x1= 0; x0=(w);
  322. y1=h; y0=-d;
  323. numeric theta; theta=angle(z0-z1);
  324. pos1(rule_thickness,90+theta);
  325. pos2(1.5rule_thickness,theta);
  326. pos3(bar,theta); pos4(bar,theta);
  327. z4=z0+ dir -(90-theta) xscaled (spread) yscaled (spread);
  328. z2r=z0;
  329. z9=.381966[.5[z3,z4],z0];
  330. z40= 1/2[z0,z4] + dir theta xscaled 2.5u yscaled 2.5u;
  331. pickup rule.nib;
  332. draw z0{z0-z1}..{z4-z0}z40..{z1-z0}z4;
  333. penlabels(0,1,2,3,4,5,6,9); endchar;
  334. enddef;
  335.  
  336.  
  337. def RevSquiggle (expr ChCode, ChWidthFrac,ChDepthFrac)=
  338.  
  339. beginchar(ChCode,ChWidthFrac*18u#,0,ChDepthFrac*18u#);
  340. adjust_fit(0,0);
  341. x0= 0; x1=(w);
  342. y0=h; y1=-d;
  343. numeric theta,delta; theta=angle(z1-z0);
  344. delta=3u;
  345. z2=.5/6[z0,z1];
  346. z8=5.5/6[z0,z1];
  347. z3=1/6[z0,z1] + dir (90+theta) xscaled (delta+eps) yscaled (delta+eps);
  348. z5=3/6[z0,z1] + dir (90+theta) xscaled (delta+eps) yscaled (delta+eps);
  349. z7=5/6[z0,z1] + dir (90+theta) xscaled (delta+eps) yscaled (delta+eps);
  350. z4=2/6[z0,z1] + dir -(90-theta) xscaled (delta+eps) yscaled (delta+eps);
  351. z6=4/6[z0,z1] + dir -(90-theta) xscaled (delta+eps) yscaled (delta+eps);
  352.  
  353. pickup pencircle scaled rule_thickness;
  354. draw z0--z2--z3--z4--z5--z6--z7--z8--z1;
  355. penlabels(1,2); endchar;
  356. enddef;
  357.  
  358. RevShaft(0,4/5,1);
  359. RevShaft(13,3/4,1);
  360. RevShaft(26,2/3,1);
  361. RevShaft(39,3/5,1);
  362. RevShaft(52,1/2,1);
  363. RevShaft(65,2/5,1);
  364. RevShaft(78,1/3,1);
  365. RevShaft(91,1/4,1);
  366. RevShaft(104,1/5,1);
  367.  
  368.  
  369. RevDashedShaft(1,4/5,1);
  370. RevDashedShaft(14,3/4,1);
  371. RevDashedShaft(27,2/3,1);
  372. RevDashedShaft(40,3/5,1);
  373. RevDashedShaft(53,1/2,1);
  374. RevDashedShaft(66,2/5,1);
  375. RevDashedShaft(79,1/3,1);
  376. RevDashedShaft(92,1/4,1);
  377. RevDashedShaft(105,1/5,1);
  378.  
  379.  
  380. RevUpperHead(2,4/5,1);
  381. RevUpperHead(15,3/4,1);
  382. RevUpperHead(28,2/3,1);
  383. RevUpperHead(41,3/5,1);
  384. RevUpperHead(54,1/2,1);
  385. RevUpperHead(67,2/5,1);
  386. RevUpperHead(80,1/3,1);
  387. RevUpperHead(93,1/4,1);
  388. RevUpperHead(106,1/5,1);
  389.  
  390. RevLowerHead(3,4/5,1);
  391. RevLowerHead(16,3/4,1);
  392. RevLowerHead(29,2/3,1);
  393. RevLowerHead(42,3/5,1);
  394. RevLowerHead(55,1/2,1);
  395. RevLowerHead(68,2/5,1);
  396. RevLowerHead(81,1/3,1);
  397. RevLowerHead(94,1/4,1);
  398. RevLowerHead(107,1/5,1);
  399.  
  400. RevUpperTopBarb(4,4/5,1);
  401. RevUpperTopBarb(17,3/4,1);
  402. RevUpperTopBarb(30,2/3,1);
  403. RevUpperTopBarb(43,3/5,1);
  404. RevUpperTopBarb(56,1/2,1);
  405. RevUpperTopBarb(69,2/5,1);
  406. RevUpperTopBarb(82,1/3,1);
  407. RevUpperTopBarb(95,1/4,1);
  408. RevUpperTopBarb(108,1/5,1);
  409.  
  410. RevUpperBotBarb(5,4/5,1);
  411. RevUpperBotBarb(18,3/4,1);
  412. RevUpperBotBarb(31,2/3,1);
  413. RevUpperBotBarb(44,3/5,1);
  414. RevUpperBotBarb(57,1/2,1);
  415. RevUpperBotBarb(70,2/5,1);
  416. RevUpperBotBarb(83,1/3,1);
  417. RevUpperBotBarb(96,1/4,1);
  418. RevUpperBotBarb(109,1/5,1);
  419.  
  420. RevLowerTopBarb(6,4/5,1);
  421. RevLowerTopBarb(19,3/4,1);
  422. RevLowerTopBarb(32,2/3,1);
  423. RevLowerTopBarb(45,3/5,1);
  424. RevLowerTopBarb(58,1/2,1);
  425. RevLowerTopBarb(71,2/5,1);
  426. RevLowerTopBarb(84,1/3,1);
  427. RevLowerTopBarb(97,1/4,1);
  428. RevLowerTopBarb(110,1/5,1);
  429.  
  430.  
  431. RevLowerBotBarb(7,4/5,1);
  432. RevLowerBotBarb(20,3/4,1);
  433. RevLowerBotBarb(33,2/3,1);
  434. RevLowerBotBarb(46,3/5,1);
  435. RevLowerBotBarb(59,1/2,1);
  436. RevLowerBotBarb(72,2/5,1);
  437. RevLowerBotBarb(85,1/3,1);
  438. RevLowerBotBarb(98,1/4,1);
  439. RevLowerBotBarb(111,1/5,1);
  440.  
  441. RevLowerTopHook(8,4/5,1);
  442. RevLowerTopHook(21,3/4,1);
  443. RevLowerTopHook(34,2/3,1);
  444. RevLowerTopHook(47,3/5,1);
  445. RevLowerTopHook(60,1/2,1);
  446. RevLowerTopHook(73,2/5,1);
  447. RevLowerTopHook(86,1/3,1);
  448. RevLowerTopHook(99,1/4,1);
  449. RevLowerTopHook(112,1/5,1);
  450.  
  451.  
  452. RevLowerBotHook(9,4/5,1);
  453. RevLowerBotHook(22,3/4,1);
  454. RevLowerBotHook(35,2/3,1);
  455. RevLowerBotHook(48,3/5,1);
  456. RevLowerBotHook(61,1/2,1);
  457. RevLowerBotHook(74,2/5,1);
  458. RevLowerBotHook(87,1/3,1);
  459. RevLowerBotHook(100,1/4,1);
  460. RevLowerBotHook(113,1/5,1);
  461.  
  462.  
  463. RevUpperTopHook(10,4/5,1);
  464. RevUpperTopHook(23,3/4,1);
  465. RevUpperTopHook(36,2/3,1);
  466. RevUpperTopHook(49,3/5,1);
  467. RevUpperTopHook(62,1/2,1);
  468. RevUpperTopHook(75,2/5,1);
  469. RevUpperTopHook(88,1/3,1);
  470. RevUpperTopHook(101,1/4,1);
  471. RevUpperTopHook(114,1/5,1);
  472.  
  473. RevUpperBotHook(11,4/5,1);
  474. RevUpperBotHook(24,3/4,1);
  475. RevUpperBotHook(37,2/3,1);
  476. RevUpperBotHook(50,3/5,1);
  477. RevUpperBotHook(63,1/2,1);
  478. RevUpperBotHook(76,2/5,1);
  479. RevUpperBotHook(89,1/3,1);
  480. RevUpperBotHook(102,1/4,1);
  481. RevUpperBotHook(115,1/5,1);
  482.  
  483.  
  484. RevSquiggle(12,4/5,1);
  485. RevSquiggle(25,3/4,1);
  486. RevSquiggle(38,2/3,1);
  487. RevSquiggle(51,3/5,1);
  488. RevSquiggle(64,1/2,1);
  489. RevSquiggle(77,2/5,1);
  490. RevSquiggle(90,1/3,1);
  491. RevSquiggle(103,1/4,1);
  492. RevSquiggle(116,1/5,1);
  493.  
  494.  
  495. RevUpperHead(117,1/6,1);
  496. RevLowerHead(118,1/6,1);
  497. RevUpperTopBarb(119,1/6,1);
  498. RevUpperBotBarb(120,1/6,1);
  499. RevLowerTopBarb(121,1/6,1);
  500. RevLowerBotBarb(122,1/6,1);
  501. RevLowerTopHook(123,1/6,1);
  502. RevLowerBotHook(124,1/6,1);
  503. RevUpperTopHook(125,1/6,1);
  504. RevUpperBotHook(126,1/6,1);
  505. RevSquiggle(127,1/6,1);
  506. bye.
  507.  
  508.